home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_editkey.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
830b
|
51 lines
/*
** $VER: EditKey.edge 1.2 (Sunday 19-Sep-93 13:57:38)
**
** Edit a keyboard command
**
** Written by Thomas liljetoft
*/
options results
/* get the users error-report level */
getenvvar _ge_errlevel
errlevel = result
/* ask for the key-description to edit */
'requestkey' title '"Enter key to edit"'
if RC == 0 then do
/* ok, now get the command currently installed */
key = result
'keyboard' key ask
if RC == 0 then do
/* ask for a new command, but supply the current as 'default' */
def = result
'requeststring' title '"Enter new definition."' default '"'def'"'
if RC == 0 then do
/* change to the new command */
'keyboard' key force result
end
end
end
if RC >= errlevel then do
/* something went wrong enought to be reported so report */
'fault'
'requestnotify' result
end
exit(0)